home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-5 / card_3728.txt < prev    next >
Text File  |  1990-04-06  |  3KB  |  152 lines
  1. -- card: 3728 from stack: in.0-5
  2. -- bmap block id: 3852
  3. -- flags: 0000
  4. -- background id: 2650
  5. -- name: sneak1
  6. ----- HyperTalk script -----
  7. on doAnimate
  8.   hide tool window
  9.   hide pattern window
  10.   doWriteByMe
  11.   wait 120
  12.   lock screen
  13.   show btn "mask40"
  14.   put empty into cd fld "text"
  15.   unlock screen with dissolve
  16.   zoomIt
  17.   go cd "sneak2"
  18. end doAnimate
  19.  
  20. on doWriteByMe
  21.   repeat with n = 1 to 5
  22.     repeat with m = the number of characters of line n of cd fld "theText" down to 1
  23.       put char m of line n of cd fld "theText" before line n of cd fld "text"
  24.       wait 3
  25.     end repeat
  26.     if n = 1 then
  27.       rotate40
  28.     end if
  29.     if n = 4 then
  30.       show7
  31.     end if
  32.     wait 20
  33.   end repeat
  34. end doWriteByMe
  35.  
  36. on rotate40
  37.   lock screen
  38.   hide btn "mask40"
  39.   unlock screen with wipe right
  40.   choose select tool
  41.   drag from 281,122 to 360,194
  42.   repeat for 2
  43.     repeat for 4
  44.       doMenu "Rotate left"
  45.     end repeat
  46.   end repeat
  47.   choose browse tool
  48.   set cursor to none
  49. end rotate40
  50.  
  51. on show7
  52.   lock screen
  53.   hide btn "mask7"
  54.   unlock screen with wipe right
  55.   choose select tool
  56.   drag from 219,242 to 262,305
  57.   repeat for 2
  58.     repeat for 4
  59.       doMenu "Rotate right"
  60.     end repeat
  61.   end repeat
  62.   choose browse tool
  63.   set cursor to none
  64. end show7
  65.  
  66. on zoomIt
  67.   zoomRect the rect of btn "mask7", the rect of btn "mask7b"
  68.   hide btn "mask7b"
  69. end zoomIt
  70.  
  71. on closeCard
  72.   show btn "mask7"
  73. end closeCard
  74.  
  75.  
  76. -- part 1 (field)
  77. -- low flags: 01
  78. -- high flags: 0000
  79. -- rect: left=17 top=150 right=329 bottom=338
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 174
  84. -- text size: 24
  85. -- style flags: 2304
  86. -- line height: 34
  87. -- part name: text
  88.  
  89.  
  90. -- part 2 (button)
  91. -- low flags: 00
  92. -- high flags: 4001
  93. -- rect: left=284 top=132 right=200 bottom=366
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: mask40
  102.  
  103.  
  104. -- part 3 (button)
  105. -- low flags: 00
  106. -- high flags: 4001
  107. -- rect: left=219 top=246 right=301 bottom=255
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: mask7
  116.  
  117.  
  118. -- part 4 (field)
  119. -- low flags: 81
  120. -- high flags: 0002
  121. -- rect: left=384 top=10 right=79 bottom=498
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 3
  126. -- text size: 9
  127. -- style flags: 0
  128. -- line height: 12
  129. -- part name: theText
  130.  
  131.  
  132. -- part 5 (button)
  133. -- low flags: 80
  134. -- high flags: 0000
  135. -- rect: left=221 top=89 right=222 bottom=308
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: mask7b
  144.  
  145.  
  146. -- part contents for card part 4
  147. ----- text -----
  148. There are more than
  149. new features in
  150. HyperCard 2.0
  151. concentrated in
  152. categories.